
use "$dataDir/dataset_municipalities_exposed_fires", clear
	
	append using "$dataDir/dataset_municipalities_exposed_mills"

		
	twoway   (hist pobreza if dataset=="fires", color(orange%50) percent bin(12)) (hist pobreza if dataset=="mills", color(sea%50) percent bin(12)) , legend(order(1 "Municipalities exposed to sugarcane burning" 2 "Municipalities exposed to sugar mills") pos(6) cols(2) ) xtitle("Poverty rate (%)")
		graph export "$mainDir/figures/FigA8_poverty_hist_both.pdf", as(pdf) replace

